﻿Public Class Frm_Menu
    Private Sub btn_Reportes_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles btn_Reportes.Click
        Dim frm_agregar As New Frm_Evento_Agregar
        frm_agregar.Show()
        Me.Close()
    End Sub

    Private Sub Window_Deactivated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Deactivated
        'Me.Focus()
    End Sub
End Class
